home *** CD-ROM | disk | FTP | other *** search
- Path: news.unige.it!news
- From: aoddera@igecuniv.cisi.unige.it (Alessandro Oddera)
- Newsgroups: comp.os.ms-windows.programmer.tools,com.os.ms-windows.programmer.tools.misc,comp.os.ms-windows.win95.misc,comp.lang.c++
- Subject: Re: Reboot for Windows - reset.com (0/1)
- Date: Tue, 05 Mar 1996 23:20:06 GMT
- Organization: Univ. of Genoa, Italy
- Message-ID: <4hii5r$kv3@alpha.cisi.unige.it>
- References: <4h46en$r9b@mn5.swip.net> <4h4u8n$c14@cloner3.netcom.com>
- NNTP-Posting-Host: tscisi15.cisi.unige.it
- X-Newsreader: Forte Free Agent 1.0.82
-
- Et voila', my Reset.
-
- {$A+,B-,D-,E-,F-,G-,I-,L-,N-,O-,R-,S-,V-,X-}
- {$M 1024,0,1008}
-
- procedure cls; assembler;
- asm
- mov ah, 06h {cancella video}
- mov al, 0
- mov bh ,7
- mov ch, 0
- mov cl, 0
- mov dh, 25
- mov dl, 80
- int 10h
- mov ah, 0Fh {legge pagina video in bh}
- int 10h
- mov ah, 02 {fissa posizione cursore}
- mov dh, 1
- mov dl, 0
- int 10h
- end;
-
- procedure NoTestMemory; assembler;
- asm
- CLI
- MOV AX, 40
- MOV DS, AX
- MOV WORD PTR [$0072], $1234
- END;
-
- var i: byte absolute $0:$0417;
- begin
- cls;
- writeln ('*** SYSTEM RESET *** by Alessandro Oddera');
- writeln (' RESET/H for Hard Reset');
- {i:= (i or 32) ;} { accende NumLock}
- {if ( paramstr(1)<> '/h') OR (paramstr(1) <> '/H' ) then
- NoTestMemory;}
- {
- asm JMP $FFFF
- DS
- }
-
- inline ($EA /$00 /$00 /$FF /$FF); {Jmp FFFF:0000}
-
- {
- inline ($FA /$B8 /$40 /$00 /$8E /$D8 /$C7 /$06 /$72 /$0
- 0 /$34
- /$12 /$EA /$00 /$00 /$FF /$FF);
- }
- {
- asm
- INT 17
- INT 18
- INT 25
- end;
- }
-
- writeln ('Non Lo Scrivero'' mai');
- end.
-
-
- sstrader@ix.netcom.com (Scott Strader ) wrote:
-
- >In <4h46en$r9b@mn5.swip.net> m-27103@mailbox.swipnet.se (Walter Lam)
- >writes:
-
- >>
- >>Does anyone know where I can get the source code, or executable for a PC
- >>reboot program under Windows? I've got one for dos, but it doesn't work
- >>under windows/windows 95......
- >>
- >>Thanks in Advance
- >>
- >>
-
- >Look at the API funciton ExitWindowsEx().
-
- >Scott S.
- >sstrader@ix.netcom.com
-
- /-------------------------------------------------------\
- | NetSlide 2.0 - SLD & RND Autocad & Netscape Viever |
- | for Windows 3.1, 95 and NT. Aim your Web browser at |
- | http://www.archserver.unige.it/caadge/ao/homeao.htm |
- | to get your own copy! |
- \-------------------------------------------------------/
-
-